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Guida per l'input dei programmi versioni 


CIÒ plus/4 - VIC 20 

Notate che i listati contengono paro¬ 
le ' racchiuse tra parentesi graffe / / 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [<)I deve essere premuto con¬ 
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temporaneamente ài tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico so- 
htario~ questo aovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sara 
molto più agevole copiare t listati sen¬ 
za faticose e dubbie interpretazioni di 


caratteri grafici e 

di controllo del cur- 

sore o 

dei colon 
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Per ricevere gli arretrati di dirgli compilare il seguente tagliando: 

K ... 


J.soft 


Compilare ed inviare in busta chiusa a: 
viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome _ 

Cognome_ 

Indirizzo _ 

CAP- Città _ Prov. 


Desidero ricevere i seguenti numeri arretrati di 
- 


kìIMISÌ ùyJ'J dedicato a_ 


. Anno. 
Anno_ 


a L 2 000 cad per un totale di L. 
□ assegno allegato 

K 


a mezzo 


□ contanti allegati 
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Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani ' che usa¬ 
no il VIC 20, il Ciò o il Plus/4. 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "-.rem " seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 o PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per C16 c PLUS/4 


100 POKE55,0:POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 16128TO!62 60 :READA:CK=CK+A:POKEI, A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU 1 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,1 33,6,96,32,2 32,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,210,255,165,205,1 41,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,255,166,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,2 32,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,210,255,1 73 
340 DATA251,3,133,205,76,55,63 


STOP BUG PER VIC 90 


100 POKE55,0:POKE56,PEEK(56)-1:R=PEEK(56)* 256 :PRI NT"(CLR) 
ATTENDERE PREGO..." 

1 1 0 FORI =RTOR +1 3 2 : READ A :CK=CK + A: IFA=999THENA=I</256 
120 POKEI,A:NEXT 

130 I FCK< > 22689THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"(CLR}I 2 GIU'}{RVS}STOP BUGlOFFl ATTIVAT 
O. " : NEW 

200 DATÀ1 73,36,3,201,32,208,1 ,96,1 41 
210 DATA33,999,1 73,3 7,3,1 41 , 3 4,999,1 69 

2 20 DATA32,141 ,36,3,1 69,999,1 41 , 37,3 

2 30 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101 ,2 54,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,I3,32,21 0,255,1 65,21 4,1 41 ,251 
2 80 DATA3,206,251,3,1 69,0, 1 33,21 6,1 69 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 3 3,2 54,1 72,3 3,999,1 9 2,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 
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Una riproposta di un classico da 
scacchiera, ottenuto con il CI6. 
L'effetto grafico (viene utilizzata 
l'alta risoluzione) è decisamente 
buono, considerando la scarsa me¬ 
moria disponibile. 

Le regole di questo solitario do¬ 
vrebbero essere ormai ben note, 
ma per quei pochi che non le co¬ 
noscono eccone una veloce de¬ 
scrizione. In una scacchiera a for¬ 
ma di croce, trovano posto delle 
pedine continue con un'unica ca¬ 
sella libera al centro. Fine del gioco 
è quello di rimanere con una sola 
pedina, procedendo per elimina¬ 
zione diretta delle stesse. Questo 


si ottiene come nella dama tradi¬ 
zionale con la sola variante che 
non è possibile muovere una pedi¬ 
na (sono ammesse mosse orizzon¬ 
tali, verticali e diagonali) senza eli¬ 
minarne un'altra. I controlli delle 
coordinate immesse tramite tastie¬ 
ra vengono effettuate direttamente 
dal programma, che avvertirà in 
caso di errore. 

Occorre fare attenzione, durante la 
digitazione del programma, a non 
inserire spazi in sovrappiù rispetto 
a quelli indicati nel listato. Anche 
un solo carattere di troppo potreb¬ 
be portare il vostro 06 a segnalare 
l'errore OUT OF MEMORY! 


1 C0L0R4,6 :COLORO,6 :SCNCLR:VOL8 : rem 243 

2 FORA=1T037 :READC$:PRINTCS;:SOUNDl , 999,3 :FORB=lTO60:NEXT 

B, A:FORA=l TO2000:NEXT :rem 213 

3 RESTORE30:GRAPHICl,1:DIMS%(7,7):CIRCLE,37,10,7:S%(4,4)= 

1:PAINT,37,10:C=17:G=32 :rem 140 

4 SSHAPEAS/ 30,3,45, 1 8 :FORZ=30TO222STEP32:FORV=3T0123STEP2 

0 :GSHAPEAS,Z+D,V:D = D+7 :rem 87 

5 NEXT:D = 0:NEXT:GSHAPEAS, 1 47,63,4 :FORA=OTOl40STEP20:DRAW, 

C, AT0224+C,A:C=C+7:NEXT :rem 195 

6 FORB=l7T0241STEP32:DRAW,B,0TO50+B,140:NEXT:DRAW,17,OTOl 

7,10TO67,150 :rem 130 

7 BOX,67,1 40,291,1 50 :FORM=lT04:READI,J,K,L:DRAW0,I,JTOK,L 

:NEXT:FORW=1T04:READX,Y : rem 13 

8 PAINT,X,Y:NEXT:CHAR,10,20,"1{ 3 SPAZI}2{ 3 SPAZl}3 

{ 3 SPAZI> 4{ 3 SPAZI}5{ 3 SPAZI}6{ 3 SPAZI}7":FORA=1T07 
:F$=CHR$(64+A) : rem 56 

9 CHAR,N,0,F$:N = N+1:0=0+3 :NEXT:CHAR,31,22,"0-TERMINA":CHA 

R,31,24,"PEDINE 32" : rem 150 

10 M=0:I=1:CHAR,7,22,"DA{ 2 SPAZI}/ ":CHAR,0,23,"MUOVIC 

HAR,7,24,"IN{ 2 SPAZI}/ " : rem 67 

11 M=M+1:IFM>4THEN17 : rem 180 

12 L=1 :GETKEYZS: SOUND2,990,5:1FZ$ = "0"THEN2 6 :ELSEIFM=20RM= 

4THENL=L+2:GOTOl6 :rem 153 
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13 IFM=3THENI=1+2 :rem 11 

14 CHAR,9+L,21+1,Z$:CHAR, 1 5,23, " { 13 SPAZX}":IFASC(ZS)<65 

ORASC(Z$)>71THEN25 : rem 144 

15 C(M)=(ASC(Z$))-64:GOTOl1 :rem 231 

16 IFVAL(ZS)>7THEN2 5 :ELSECHAR,9 + L,21+1,Z$:C(M)=VAL(Z$) :GO 

TOI1 :rem 156 

17 IF(C(1)<3ANDC(2)<3)OR(C(1)>5ANDC(2)>5)0R(C(3)<3ANDC(4) 

<3)OR(C(3)>5ANDC(4)>5)THEN25 : rem 188 

18 FORA=1T02:1FC(A)-C(A+2)=0THENC(A+4)=C(A) :M=M+1 :G0T021 

:rem 246 

19 IFC(A)-C(A+2)=2THENC(A+4)=C(A)-1 :G0T021 :rem 69 

20 IFC(A) -C(A+2)=-2THENC(A+4)=C(A)+1:ELSEG0T025 :rem 149 

21 IFM=7THEN25:ELSENEXT:IFS%(C(1),C(2))<>OORS%(C(3),C(4)) 

<>10RS% (C (5) ,C (6) ) OOTHEN25 : rem 23 

2 2 S%(C(1) ,C(2))=1 :S%(C(3) ,C (4))=0:S%(C(5) ,C(6))=1 :FORB=l 
T05STEP2:FORA=lTOC(B) : rem 13 

23 Q=Q+7:READV:NEXT:RESTORE32:FORU = lTOC(B+1 )+7 :READO:NEXT 

:0=0+Q:GSHAPEA$,0,V,4 : rem 12 

24 RESTORE32:Q=0:NEXT:G=G-1:P$=STR$(G):CHAR,39,24," ":CHA 

R,37,24,P$:IFG=1THEN2 6 :ELSEl0 ' : rem 78 

25 CHAR,15,23,"MOSSA{ 2 SPAZI}ERRATA",1 : SOUND 1,7,5:GOTO!0 

:rem 67 

26 IFG=1THENCHAR,33,2,"OTTIMO",1 :rem 146 

27 CHAR,15,23,"ANCORA (S/N){ 2 SPAZI}":GETKEYZ?:SOUNDÌ,50 

0,9:IFZ$ = "S"THENRUN3:ELSEGRAPHIC0 : rem 141 

28 DATAD,A,M,A ,C,I,N,E,S,E ,3,D,"{HOME}{ 2 GIU'}",S,0,F, 

T,W,A,R,E ,B,Y,"{HOME}{ 4 GIU'}" : rem 211 

29 DATAB,R,U,N,0 ,P,A,R,R,E,T,T,I :rem 134 

30 DATA42,20,60,20,200,20,230,20,240,120,270,120,80,120,1 

10 :rem 66 

31 DATA120,25,1,105,119,250,139,220,39 :rem 110 

32 DATA3,2 3,4 3,63,83,1 03,1 2 3,23,55,87, 1 1 9,1 51 , 1 83,21 5 

: rem 92 


g 

\ The Snakes 


Questo è un gioco di abilità per 
due giocatori. Consiste nel muove¬ 
re un serpente evitando di andare 
a sbattere contro se stessi o contro 
il serpente avversario. Vince chi 
per primo raggiunge i sette punti. 


Si usano i tasti A-X-W-D per un gio¬ 
catore e /-;-P-L per l'altro. Se si 
vuole bloccare momentaneamente 
il gioco premete il tasto 
Buon divertimento! 
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10 SCNCLR : rem 38 
20 COLOR 1,3,3:PRINT"{ 5 SPAZljNOME GIOCATORE l":rem 216 
30 INPUT Gl $ : rem 143 
40 PRINT:PRINT:PRINT:PRINT:PRINT :PRINT: : rem 14 
50 COLOR 1,7,2:PRINT"{ 5 SPAZI}NOME GIOCATORE 2":rem 223 


60 INPUT G2$ 

: rem 147 

70 GOTO240 

: rem 

54 

80 VOL8 

: rem 

145 

90 DO 

: rem 

252 

100 READX,Y 

frem 

138 

110 SOUNDl,X,Y 

: rem 

85 

120 FORD=1TOY*16 + 30 :NEXT 

: rem 

192 

130 LOOP UNTILX=0 

: rem 

31 

140 PRINT"{ 17 SPAZI}OK !!!! 

: rem 

98 

150 FOR 1=1TO 1200:NEXT:SCNCLR 

: rem 

18 

160 DATA 169,45,169,45,169,30 

: rem 

162 

170 DATA 262,15,345,45,345,30 

:rem 

146 

180 DATA 262,15,345,30,383,15 

: rem 

146 

190 DATA 453,60,596,45,453,45 

: rem 164 

200 DATA 345,45,169,45,453,30 

: rem 

149 

210 DATA 383,15,345,30,262,15 

: rem 

140 

220 DATA 169,60,0,0 

: rem 

152 

230 END 

: rem 108 

240 A=0:B=0 

:rem 45 

310 COLOR 1,1 

: rem 

161 

320 POKE 1344,0 

: rem 

236 

330 SCNCLR 

:rem 91 

340 FOR 1=1TO 7 

: rem 

15 

350 COLOR 4,3,1 

: rem 

31 

360 COLOR 0,3,1 

:rem 28 

370 VOL I 

: rem 212 

380 SOUND 1,40,10 

: rem 

114 

390 NEXT 

: rem 

21 9 

400 PRINTCHRS(19)"[< 40 +>)" 

: rem 1 7 

410 FOR 1=1TO 22 

: rem 

58 

420 PRINT"[<+>]"TAB(39)"[<+>]" 

: rem 

139 

430 PRINT"[< 40 +>]" 

: rem 

88 

440 PRINTCHR$(19):PRINT:PRINT:PRINT:PRINTTAB(10) 

" TASTI 

'DI CONTROLLO" 

: rem 

152 

450 PRINTTAB(1) " W X D A" TAB(31) "P / L 

: rem 

205 

455 PRINT:PRINT”TASTO{ 2 SPAZI}'=' PER BLOCCARE 

MOMENTANE 

AMENTE" 

: rem 

204 

457 PRINT:PRINT"{ 14 SPAZI}IL GIOCO" 

: rem 

62 

460 PRINT:PRINTCHRS(130)TAB(11)"U{ 14 *}l" 

: rem 

192 

470 PRINTCHRS (130) TAB(11)"-PREMI UN TASTO-" 

: rem 

65 

480 PRINTTAB(11)CHR$(130)"J{ 14 *}K" 

: rem 

242 

490 GETKEY L$ 

: rem 

21 4 

500 COLOR 4,3,2:COLOR 0,8 

: rem 

82 

510 SCNCLR 

: rem 

91 

520 PRINTCHRS(19)CHR$(18)"{ 3 SPAZI}GIOCATORE 1 
{ 12 SPAZI}GIOCATORE 2{ 3 SPAZI}" 

: rem 

124 
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530 FOR 1 = 1 TO 21 :PRINTCHR$(18)" "TAB(29) 


" "TAB(39)" " 
: rem 177 

540 NEXT:PRINTCHR$(18) : rem 90 

550 CHAR 1,0,22,"{RVS}{ 40 SPAZI}" : rem 87 

560 COLOR 1/3,2:CHAR 1,0,23,"{RVS}{ 40 SPAZI}" :rem 0 

570 CHAR 1,0,24,"{ 6 SPAZI}*** BY MOLINA FOR C.16 

{ 2 SPAZI}***} 6 SPAZI}{HOME}":POKE4071,160:COLOR1,1 





:rem 

177 

580 

PRINTCHRS(19) :PRINT :PRINT:PRINT :PRINT 

:PRINT:PRINTTAB( 


31)"GIOC . 1 ":PRINT 


: rem 

1 68 

590 

PRINTTA8(33)A 


: rem 

250 

600 

PRINT:PRINT :PRINT:PRINTTAB(31)"GIOC. : 

2" : rem 

202 

61 0 

PRINT:PRINTTAB(33)B 


: rem 

187 

620 

0=3520 


: rem 

238 

630 

K=3534 


: rem 

240 

640 

P=40:OS=2496:POKEOS, 2 


: rem 

226 

650 

S=-40 


: rem 

1 88 

660 

GET A?:IF A$="=" THEN GOSUB 940 


:rem 

25 

670 

IFP=+1THEN 680:ELSE IF A$="A"THEN 

LET 

P=-1 : rem 

250 

680 

IFS=+1THEN 690:ELSE IF A$="L"THEN 

LET 

S=-1 :rem 

13 

690 

IFP=+40THEN700:ELSE IF A$="W"THEN 

LET 

P=-40 :rem 

113 

700 

IFS = + 40 THEN710 : ELSEIF A$ = "P"THEN 

LET 

S=-40 :rem 

105 

710 

IFP=-40THEN 720:ELSEIF A$ = "X"THEN 

LET 

P=+40 :rem 

109 

720 

IFS=-40THEN 730:ELSEIF A$="/"THEN 

LET 

S=+40 :rem 

76 

730 

IFP=-1THEN 740:ELSE IF A$="D"THEN 

LET 

P=+l :rem 

247 

740 

IFS=-1THEN 770:ELSE IF A$=";"THEN 

LET 

S=+l :rem 

248 

750 

IF B=7 THEN 1000 


: rem 

209 

760 

IF A=7 THEN 990 


: rem 

178 

770 

0=0+P:0S=0S+P 


: rem 

42 

780 

K=K+S 


: rem 

240 

790 

IF PEEK (K) 032 AND PEEK(0)<>32 THEN A= 

=A+1:B=B+1:FORR= 


1TOl200:NEXT:GOSUB 960:GOTO510 


: rem 

9 

800 

REM 


: rem 

124 

81 0 

IF PEEK (O)=86 THEN A=A+1:B=B+1 


: rem 

57 

820 

IF PEEK(O)><32 THEN GOSUB 870 


: rem 

27 

830 

IF PEEK(K)<>32 THEN GOSUB 920 


: rem 

20 


63 

206 

115 

131 


840 FORI = 1TO 20 :NEXT:POKE OS,2 :POKEO,91 :POKEO-P,87 

; rem 

850 POKEK,86 :POKE K-S,81:GOSUB910 : rem 

860 GOTO 660 : rem 

870 REM : rem 

880 J=2048+(O-3072-P):FOR 1 = 1 TO 254 :POKE J, I :NEXT:POKE J 

,2 ;rem 254 

890 B=B+1:FOR 1=1TOl200:NEXT:GOT0510 
900 SOUND 1,400,2:RETURN 
910 SOUND 1,400,2:RETURN 
920 E=2048+(K-3072-S):FOR 1=1 TO 254: 

,0 

930 A=A+1 : FORI = 1TOl 200 :NEXT: GOTO510: 

940 GET H$ : IF H$ = "="THEN GOTO 660 
950 GOTO 940 


: POKE 


:rem 126 
:rem 139 
:rem 140 
E,I :NEXT:POKE E 
:rem 231 
:rem 177 
: rem 224 
: rem 116 
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960 J=2048+(O-3072-P) :FOR 1 = 1 TO 254:POKE J,I :NEXT:POKE J 
,2 : rem 253 

970 E=2 048+(K-3072-S) : FOR 1 = 1 TO 254 :POKE E,I :NEXT:POKE E 


,0 




: rem 

236 

980 RETURN 




: rem 

1 29 

990 GOTOIOIO 




: rem 

1 57 

1000 GOTO!030 




: rem 

1 90 

1010 SCNCLR:PRINT 

" BRAVO 

"GIS 

" HAI VINTO !!!" 

: rem 

1 77 

1020 GOTO 80 




: rem 

1 00 

1030 SCNCLR:PRINT" 

BRAVO 

"G2$" 

HAI VINTO ! ! !" 

: rem 

1 80 

1040 GOTO 80 




:rem 

102 


ir Oltre Cortina 


Il tuo compito oggi è di paracadu¬ 
tare alcune spie in un territorio del¬ 
la Germania Est. Ma per fare ciò 
dovrai superare un ostacolo: i ge¬ 
nieri russi stanno costruendo alla 
velocità del fulmine un muro che 
corre lungo il confine. Per fortuna 
il tuo aereo contiene un carico di 
bombe che potrai usare per di¬ 


struggere il muro. Il gioco finisce 
quando 10 spie finiscono spiacci¬ 
cate contro il muro; l'augurio che 
ciò accada il più tardi possibile, 
perché verrai immediatamente 
spedito alla corte marziale con 
l’accusa di alto tradimento e basso 
senso del dovere! 


1 REM 

: rem 

21 

2 REM 

: rem 

22 

6 PRINT"{CLR}":POKE36878,0:POKE36869,242 

: rem 

172 

7 GOSUB4000 

: rem 

1 23 

8 FORN=1TO300:NEXT 

: rem 

1 38 

9 HS = 0:POKE36869,240 

: rem 

1 24 

10 GOSUBl80 

: rem 

1 22 

15 PRINT"{HOME}";"HI:";HS 

: rem 

1 06 

20 X=X+F 

: rem 

1 92 

30 IFX=77680RX= 7 7 89THENF=-F:POKE3687 8 , 1 5: 

POKE36876,22C 

1 : FO 

RN=1T05:POKE36876,0 :NEXT 

: rem 

224 

31 POKE36878,0 

: rem 

255 

32 PRINT"{HOME}{GIU 1 }PUNTI :";S;TAB(18);"{ 

3 SPAZI}" 



:rem 

253 

33 PRINT"{HOME}{GIU'}";TAB(14);"VITE";LI 

: rem 

1 70 

40 POKEX,65 

: rem 

1 30 

41 POKE(X-1) ,32 :POKE(X+l) , 32 

: rem 

43 

42 W=X+30720 

: rem 

1 21 

44 POKEW,0 

: rem 

74 


io 





50 GETIN$:IFIN$="Z"THENIFT<>1THENT=1 :K = X+22 : rem 182 

55 IFIN$="M"ANDX>7771ANDX<7786THENIFZ<>1THENZ=1:Q=X+22 

:rem 109 

60 IFT=1THENPOKE(K) ,32 :K=K+22 :POKEK,90 :POKE(K + 30720) ,2:IF 


PEEK (K+22) O32THENG0SUB1 40 :rem 237 

6 5 IFZ=1THENPOKE(Q),32 :Q=Q+22:POKEQ,94 :POKE(Q+30720) ,0:IF 


PEEK (Q+22) O32THENG0SUB1 60 

: rem 

32 

70 IFK>8120THENPOKEK, 32 :T=0 

: rem 

1 27 

75 IFZ= 1ANDQ>8120THENS = S + 40:POKEQ,32 :Z = 0 

: rem 

221 

80 IFRND(1)>ZDTHEN20 

: rem 

202 

1 00 

REM 

: rem 

11 7 

110 

V=INT(RND(1)*8+1):IFV=1THEN110 

: rem 

21 1 

1 1 5 

A=A-1 :1FA/40-INT(A/4 0)=. 55THENA=A-22 

: rem 

226 

1 20 

POKEA,102 :POKE(A+30720) ,V 

: rem 

102 

1 25 

IFA<7791THENl000 

: rem 

108 

1 30 

GOTO20 

: rem 

47 

1 40 

POKEK,32:FORN=20TO24:POKE(K+N),32:NEXT:T=0 

: rem 

58 

1 41 

POKE36877,220:FORN=l5TOlSTEP-1:POKE36878,N: 

FORM=1TOl5 


: NEXT:NEXT 

: rem 

222 

1 42 

POKE36877,0:POKE36878,0 

: rem 

6 

1 50 

RETURN 

: rem 

11 8 

1 60 

POKEQ,42:LI=LI-1 

: rem 

1 68 

1 61 

POKE36878, 1 5 :FORM=200T0220 + 3:POKE36876,M:NEXT 




: rem 

164 

1 62 

POKE36876,0:POKE36878,0 

: rem 

7 

1 64 

Z = 0:POKEQ,32 :FORN=21T023 :POKE(Q+N) ,32 :NEXT 

:rem 

82 

1 65 

IFLI=0THEN1000 

: rem 

29 

166 

RETURN 

:rem 

125 

1 80 

REM 

: rem 

125 

1 95 

A=8142 

: rem 

236 

1 96 

C=-.6:T=0:L=1:Z=0:I=1 

: rem 

1 46 

1 97 

X=7768:F=1:S=0 

: rem 

250 

1 98 

LI = 1 0 

:rem 

21 3 

200 

RETURN 

: rem 

114 

1 000 

IFLI=0THENPRINT"{HOME}{GIU 1 }"TAB(19);"0" 

: rem 

183 

1010 

POKE3 687 8,1 5:FORN=lTOl0 :POKE36375,200 :POKE36875, 

0 



: rem 

122 

101 1 

POKE36876,200:POKE36876,0:NEXT:POKE36878,0 

: rem 

223 

1030 

PRINT"{HOME}":FORN=1TOl0 :PRINT"{GIU' }":NEXT:PRINT"GI 


OCHI ANCORA?" 

: rem 

207 

1 035 

IFS>HSTHENHS=S 

: rem 

222 

1 040 

INPUTA$ 

: rem 

186 

1 050 

IFLEFT8(A$,1)="S"THENGOSUBl95:PRINT"{CLR}" 

:FORN= 

1 T02 


00:NEXT:GOTOl5 

: rem 

21 9 

1 060 

END 

: rem 

1 58 

4000 

PRINT"{CLR}{GIU 1 }";TAB(4);"OLTRE CORTINA" 

: rem 

229 

4010 

PRINTTAB ( 4 ) ; "--" 

: rem 

73 

401 3 

PRINT"{ 2 GIU'} DEVI RIUSCIRE A PARA-CADUTARE I 

TUOI 


UOMI- NI OLTRE IL MURO CHE" 

: rem 

90 

4014 

PRINT”VIENE NEL FRATTEMPO{ 3 SPAZI}COSTRUITO DAI 

NEM 


ICI." 

: rem 

31 


11 





83 


4015 PRINT"PUOI AIUTARTI DISTRUG-GENDO IL MURO CON LE 
{ 2 SPAZI}BOMBE." : rem 

4019 PRINT"{GIU'}{ 2 SPAZI}Z BOMBE{ 3 SPAZljM UOMINI" 


: rem 


1 41 


4020 

PRINT" { 2 GIU'H 2 DES} LIV. DIFFIC. 
0"ORZD$>"9"THEN4021 

0-9";ZD$:IFZDS<" 
: rem 1 93 

4021 

GETZD$:IFZD$<"0"ORZD$>"9"THEN4021 

: rem 

1 84 

4025 

ZD=(VAL(ZD$)+1)/10 

: rem 

21 7 

4030 

PRINT"{CLR}" 

: rem 

43 

4035 

RETURN 

: rem 

1 72 


Immagini 


Due programmi che ti permettono 
di ottenere immagini grafiche con 
il tuo VIC, che si modificano conti¬ 
nuamente. Se sei di quelle persone 
che si "incantano“ davanti al fuoco 
di un camino questi programmi 
fanno per te! 

Quadri di un'Esposizione 

Una serie di quadri astratti, studiati 
per andare particolarmente bene 
insieme alla musica di Mussorgsky, 


o con Pictures at an Exibition degli 
Emerson Lake & Palmer, a seconda 
dei gusti. Sono tuttavia adatti per 
qualsiasi musica d'atmosfera. 

Arabesque 

Usa circa le stesse routines del pre¬ 
cedente programma per generare 
una serie di fantasie adatte a cera¬ 
miche, mosaici, tessuti e tappeti. 
Musica consigliata: Pink Floyd. 


Quadri di un'esposizione 

1 POKE36879,24:D = 3 : rem 241 

2 G = 36879:R=36869:P=36878:I = 503:POKEP,128 : POKER, 24 2 :GOSUB 

69:0=7680:Z=30720 :rem 95 

3 POKER,240 : rem 118 

4 C = 0:K=24 4 :PRINT"{CLR}":POKEG,24 :X=0:GOSUB54:GOSUB27:D = 6 

:S = 53:GOSUB6 3:GOSUB4 4:GOSUB54:Q=1 : rem 8 

5 POKEG,8:GOSUB51:GOSUB8:GOSUB27:GOSUB51:C=1:GOSUBl1:X=0: 

GOSUB4 9 :K=116 :C=1 :rem 245 

6 POKEG,48:GOSUBl5:GOSUB62:1FPEEK(R)=12THENGOSUB30 

:rem 201 

7 GOTO9 :rem 169 

8 POKE36867,247:POKE36865,9:POKE3 6866,l56:POKE36864,6 :POK 

ER,253:X=0:A=2 8: RETURN : rem 7 

9 FORE=lT02:F=9:GOSUBl1 :GOSUB49 :GOSUBl5:NEXTE:GOSUB38 

:rem 228 


12 





1 0 

GOSUB51:GOSUB50:GOSUB44:GOSUB74:GOSUB62:Q=1 

: GOTO9 





: rem 

116 

11 

IFE/2=INT(E/2)THENF=4:RETURN 


:rem 

1 82 

1 2 

W=PEEK(3687 8)+1 6:IFW>240THENW=0 


: rem 

246 

1 3 

POKE3 6 87 8,W: RETURN 


: rem 

64 

14 

IFE=2THENF=5 


:rem 

143 

1 5 

FORU=1TOF 


: rem 

249 

16 

FORT=1TOV:GOSUB20:GOSUB22:NEXTT:H=H- 

1 

: rem 

117 

17 

FORT=1 TOH :GOSUB21 :GOSUB23 :NEXTT:V=V- 

1 : IFU=1THENV=V+1 




: rem 

1 34 

1 8 

FORT=lTOV:GOSUB21:GOSUB24:NEXTT:H=H- 

1 

: rem 

122 

19 

FORT= 1 TOH : GOSUB21 .-GOSUB2 5 : GOSUB57 : NEXTT: V=V 

-1 :GOSUB37: 


GOSUBl2:NEXTU:RETURN 


: rem 

217 

20 

IFT=1THENRETURN 


: rem 

194 

21 

POKEX,K:GOSUB59:POKEX+Z,C: RETURN 


: rem 

88 

22 

X=X+28:GOSUB52:RETURN 


: rem 

33 

23 

X=X+1 :GOSUB5 2:GOSUB59: RETURN 


: rem 

17 

24 

X = X-2 8 :GOSUB52: RETURN 


: rem 

37 

25 

X=X-1:GOSUB59:GOSUB52:RETURN 


:rem 

21 

26 

IFK>127THENPOKER,253 


: rem 

144 

27 

G0SUB29:X=0:K=160 :FORB=OTOO+I+3STEPD 

:POKEB, 

K+l:POKEB+Z 


,9:NEXT:RETURN 


: rem 

1 64 

28 

POKEX,K:GOSUB59:POKEX+Z,C: RETURN 


: rem 

95 

29 

FORJ =1TOK:NEXTJ: RETURN 


: rem 

21 3 

30 

B=PEEK(R):IFB=253ANDC>KTHENPOKER,240 

: RETURN 

: rem 

183 

31 

IFB=205THENPOKER,253:RETURN 


: rem 

1 53 

32 

IFB=240THENPOKER/255:RETURN 


:rem 

155 

33 

IFB = 2 55THENPOKER,12 : RETURN 


: rem 

105 

34 

IFB = 12THENPOKER,251 :RETURN 


: rem 

1 02 

35 

IFB=251THENPOKER,204:RETURN 


:rem 

1 54 

36 

IFB = 204THENPOKER,205 : RETURN 


: rem 

154 

37 

K=160 :IFE=2THENRETURN 


: rem 

21 

38 

K=PEEK(36868) 


: rem 

1 20 

39 

IFK>49ANDK<60THENK=58 


: rem 

21 3 

40 

IFK>175ANDK<185THENK=1 87 


:rem 

104 

41 

C=PEEK(36868) 


: rem 

106 

42 

IFK>127ANDK<159THENK=159 


:rem 

103 

43 

RETURN 


: rem 

71 

44 

Q=I-A:FORM=0+ATOO+1 :J = PEEK(G):IFJ/10 

=INT(J/l0)THENGOSU 


Bl 2 


: rem 

255 

45 

X=PEEK(M):Y=PEEK(M+Z):IFY>254THEN¥=0 


: rem 

201 

46 

POKEM,X :POKEM+Z/Y+1 :POKEM+Q,X :POKEM+Z+Q,Y+1 

: rem 

21 2 

47 

IFM=O+266ANDU>0THENGOSUB51:GOSUB30 


: rem 

1 00 

48 

Q=Q-2:NEXTM:RETURN 


: rem 

1 38 

49 

H=28:V=18 :X = 0:RETURN 


: rem 

202 

50 

POKEG,PEEK(36868) : RETURN 


: rem 

166 

51 

FORJ=lT03000:NEXTJ:RETURN 


: rem 

72 

52 

FORJ=1TO(U*H)/2:NEXTJ:RETURN 


: rem 

255 

53 

GOSUB49:F=2:GOSUBl5:RETURN 


: rem 

126 

54 

IFQ>0THENRETURN 


: rem 

198 

55 

IFPEEK(R)=251THENGOSUB30 


: rem 

1 68 


13 


56 FORJ=OTOO+I+3 :POKEJ,K:POKEJ+Z,C:NEXTJ: RETURN :rem 154 

57 IFT=HTHENPOKEX,K:POKEX+Z,C : rem 182 

58 RETURN : rem 77 

59 IFPEEK(R)=251ORPEEK(R)=12THENRETURN :rem 178 

60 IFH<16ANDTI/7=INT(TI/7)THENGOSUB38 : rem 76 

61 RETURN : rem 71 

62 GOSUB63:G0T064 : rem 46 

63 PRINT"{HOME}":FORB = lTOS:PRINT"[<W>]Q[<Q>] "SPC (D); :GOSU 

B29:NEXTB:GOSUB51:RETURN : rem 30 

64 IFT1/3 = 1NT(TI/3)THENGOSUB4 4: RETURN : rem 161 

65 IFTI/5 = INT(TI/5)THENGOSUB3 8 :GOSUB74:GOSUB63 : rem 215 

66 IFC>200THEND=3 :3 = 68 :GOSUB6 3 :GOSUB51 : RETURN : rem 134 

67 GOSUB55:GOSUB51 :GOSUB26: RETURN : rem 179 

68 GOSUB30:GOSUB51 : RETURN : rem 139 

69 PRINT"{CLR}"SPC(138)"{BLKjQUADRI DI":GOSUB29 : rem 114 

70 PRINT" { 2 GIU'H 3 SPAZI}UN'ESPOSIZIONE":GOSUB51 

: rem 28 

71 PRINT"{ 3 GIU'} {RED}SULLO SCHERMO GRANDE":GOSUB29 


: rem 254 

72 PRINT"{ 5 SPAZI}A 16 COLORI":GOSUB51 : rem 202 

73 PRINT"{ 3 GIU'} {BLK}{ 2 SPAZIjDI TONY{SPAZI}STANLEY": 

POKE64 6,1 5:GOSUB51: RETURN : rem 106 

74 POKE64 6,PEEK(646)+1 :1FD=6THEND= 3:S = 7 4 : RETURN : rem 138 

75 IFD=5THEND=6:S=52: RETURN : rem 226 

76 IFD=3THEND=5:S = 60:RETURN : rem 223 

99 PRINT"{BLK}":POKE36866,1 50 :POKE36867,1 74 :POKE3 686 5, 38: 

POKEG,25:PQKER,240:POKE36864,12 : rem 25 


Arabesque 

0 L=RND(-TI):G=36879:R=36869:P=36878:POKEG,56:1=475:POKEP 
,128:POKER,242:GOSUB3:GOSUB72 :rem 237 

2 POKE3686 7,247:POKE3686 5,8 :POKE36866,1 56 :POKE36864,8 :POK 

ER, 253:G0SUB3:G0T04 : rem 60 

3 0=7707:X=0:Z=30720:RETURN :rem 153 

4 K = 158 :F0RE=1T010:F=6:C=1:GOSUB64:GOSUBl2:F=0:GOSUB3 

:rem 43 

5 POKER, 253 :FORT=OTOO+1 :POKET+Z, 9 :GOSUB70:NEXTT:GOSUB69 

:rem 161 

6 FORT=lTOI:GOSUB48: :POKEX,K:X=X+1:GOSUB66:GOSUB43:NEXTT: 

GOSUB69 : rem 35 

7 GOSUB33:GOSUB34:GOSUB71:GOSUB57:GOSUB43:GOSUB33:GOSUB8: 

GOTOl1 :rem 142 

8 GOSUB3:B=INT(RND(L)*8) :FORM=0TO28:GOSUB43 :FORF=1T028 :A = 

PEEK(X+Z):IFA+B>255THENA=A-128 : rem 192 

9 POKEX+Z,A+B:GOSUB21 : :GOSUB70:NEXTF:POKEP,96 : rem 170 

10 FORF = 0TO28:POKEX,32 :POKEX+Z,C:GOSUB21 :NEXTF:X=0+1+M:NE 

XTM:GOSUB57:GOSUB69:RETURN : rem 12 

11 F=7:GOSUB43:GOSUB64:GOSUB3:GOSUB65:GOSUBl3:GOTOl 9 

:rem 110 

12 IFE=1 THENF=9 :rem 144 


14 



1 3 

FORU=lTOF:GOSUB4 3 

: rem 

24 

1 4 

IFU=1THENV=V-1 :GOSUB4 3 

: rem 

78 

1 5 

FORT=1TOV:GOSUB2 0:GOSUB21 :GOSUB70:NEXTT:H = 

H-1 : rem 

148 

1 6 

FORT=1TOH :GOSUB20:GOSUB22:NEXTT:V=V-1 :IFU= 

1THENV=V+1 



: rem 

1 31 

17 

FORT=lTOV:GOSUB20:GOSUB2 3 :NEXTT:H = H-1 

: rem 

11 9 

1 8 

FORT=1TOH:GOSUB2 0:GOSUB24:NEXTT:V=V-1 :GOSUB4 3 :NEXTU: RE 


TURN 

:rem 

144 

1 9 

GOSUB33:FORF=1T04:GOSUB57:NEXTF:GOSUB43:G0T025 




: rem 

220 

20 

POKEX,K:POKEX+Z,C: RETURN 

: rem 

47 

21 

X=X+28 : RETURN 

: rem 

255 

22 

X=X+1:GOSUB70:RETURN 

: rem 

232 

23 

X=X- 28 :GOSUB70 -.RETURN 

: rem 

36 

24 

X=X-1:GOSUB70: RETURN 

: rem 

236 

25 

GOSUB33:GOSUB3:K=32:FORB=OTOO+ISTEP3:POKEB 

,K:POKEB+Z,7 


:NEXT 

: rem 

83 

26 

GOSUB43:GOSUB64:G0T027 

: rem 

79 

27 

GOSUB43:GOSUB64:F=4:K=29:GOSUBl3:POKER,251 

:GOSUB65 

:G0S 


UB4 3 :POKEP,24 0 

: rem 

240 

28 

FORF=1T06:GOSUB64:GOSUB13 :GOSUB6 9 :GOSUB65: 

GOSUB43: 

NEXT 


F 

: rem 

78 

29 

IFK/2=INT(K/2)THENPOKER,205 

: rem 

62 

30 

IFK/3=INT(K/3)THENPOKER,204 

: rem 

55 

31 

GOSUB33:GOSUB43 : :GOSUB57:NEXTE:GOT04 

: rem 

48 

32 

POKEX,K:POKEX+Z,C: RETURN 

:rem 

50 

33 

FORT=lT0300 :NEXTT:RETURN 

: rem 

44 

34 

PRINT"{HOME}":FORT=1 TOI 0 

: rem 

50 

35 

POKE64 6,1 2 :PRINT"{RED}*[< + >]*[<+>]*[< + >]"SPC(3)"*[< + >] 


*[< + >] *[< + >} "SPC (3) "*[<+>] *[<+>] *•[< + >] "SPC (3) "*[< + >]* 


[<+>]*[<+>){BLK}":GOSUB70 

:rem 

104 

36 

NEXTT:RETURN 

: rem 

22 

37 

IFPEEK(R)=2 53THENPOKER, 204 :G0T042 

: rem 

227 

38 

IFPEEK(R)=255THENPOKER,253:G0T042 

: rem 

234 

39 

IFPEEK(R)=251THENPOKER,204:G0T042 

:rem 

227 

40 

IFPEEK(R)=204THENPOKER,205:GOTO42 

: rem 

21 8 

41 

IFPEEK(R)=205THENPOKER,255 

: rem 

8 

42 

RETURN 

: rem 

70 

43 

IFF=9THEN49 

: rem 

78 

44 

IFF=6THENK=158:G0T049 

: rem 

229 

45 

K=INT(RND(L)*255) 

: rem 

1 1 6 

46 

IFK>4 9ANDK< 60THENK=58 

: rem 

21 1 

47 

IFK>175ANDK<185THENK=187 

: rem 

1 1 1 

48 

C= K:IFC>2 54THENC = 7 

: rem 

2 

49 

K= K+1 :IFK>2 55THENK=2 8 

: rem 

171 

50 

IFK>127ANDK<159THENK=159 

: rem 

102 

51 

IFH<18ANDK<128THENK=K+128:RETURN 

: rem 

1 85 

52 

IFPEEK(R)=251ANDK<128THENK=K+128:RETURN 

:rem 

106 

53 

IFC/80 INT (C/8) THENC=C+8 : IFC>1 4 7THENC=C- 128 : rem 

246 

54 

RETURN 

: rem 

73 

55 

IFX>127ANDX<160THENX=160 

: rem 

1 30 


15 


56 

RETURN 

: rem 

75 

57 

Q=I:FORM=OTOO+I 

: rem 

163 

58 

IFK/2=INT(K/2)THENPOKEG,K 

: rem 

233 

59 

X=PEEK(M) :Y = PEEK (M + Z) :IFYANDl5<8THENY=8 

: rem 

170 

60 

IFY>254THENY=11 

: rem 

78 

61 

POKEM,X :POKEM+Z, Y +1 :POKEM+Q,X :POKEM+Z+Q,Y + l : 

GOSUB55 



: rem 

245 

62 

IFM=0+ 2 3 7THENGOS UB6 9 :GOSUB 3 7 

: rem 

217 

63 

Q = Q-2 :NEXTM: : RETURN 

: rem 

193 

64 

H=28:V=17:GOSUB3:RETURN 

: rem 

149 

65 

POKEG,INT(RND(L) *255) : RETURN 

: rem 

170 

66 

A=PEEK(P):IFA>239THENA=0 

: rem 

1 1 5 

67 

IFT/118 = INT(T/l 1 8)THENPOKEP,A+l6:GOSUB70: RETURN 




: rem 

151 

68 

RETURN 

: rem 

78 

69 

FORT=lT02000:NEXTT: RETURN 

: rem 

100 

70 

FORA=1TOl5:NEXTA:RETURN 

: rem 

21 8 

71 

GOSUB64:F = 2 rGOSUBl3 : RETURN 

: rem 

121 

72 

PRINT"{CLR}"3PC(132)"{BLK}{ 6 SPAZI}ARABESQUE":GOSUB69 


:PRINT"{ 4 GIU 1 J{ 3 SPAZI}DI TONY STANLEY" 

: rem 

246 

73 

FORE = lT05:GOSUB6 9 :NEXT:PRINT"ThOMeT" 

: rem 

156 

74 

FORJ = 7 680TO7680 + 506 :POKEJ,160 :POKEJ+Z,0:NEXT 

:GOSUB6 9 :P 


OKEG,8:RETURN 

: r em 

1 98 


ri 

ì Papersimon 


Questo 3 ioco vi farà tornare in 
mente uno dei giocattoli della Mat¬ 
tel Electonics: ebbene si, questa 
settimana ve ne offriamo un ottima 
versione (grafica, esultate!) non 
molto lunga ma veramente entusia¬ 
smante. 

Digitate il programma, vi troverete 
di fronte alla schermata di presen¬ 
tazione, e premuto un tasto, ve¬ 
drete apparire sullo schermo 4 
quadrati: poi ne vedrete accedere 
qualcuno, sempre con un numero 


crescente: ebbene quella è la se¬ 
quenza da ripetere. 

Come fare? Semplicissimo: basta 
premere un tasto da 7 a 4, ovvero 
il numero del quadrante che avete 
visto accedersi. Se avete indovina¬ 
to, la sequenza si allungherà, altri¬ 
menti bé, potreste sempre curarvi 
con un po' di fosforo. Ora smette¬ 
te di leggere, e guardate lo scher¬ 
mo, pena un errore (a 3 errori il 
gioco finisce!). 
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10 0 REM 

110 CALL CLEAR 

120 PRINT TAB(5);"P A P E R S I M O N" 

1iO DIM L(100) 

140 DEF R4=INT(RND*4+1) 

150 PRINT PREMI 1-4 PER COPIARE IL” 

160 PRINT COMPUTER." 

170 PRINT IL GIOCO FINISCE DOPO" 

180 PRINT TRE ERRORI.":::: 

1 90 FOR 1 = 9 TO 13 
200 CALL COLOR(I,1,1) 

210 NEXT I 

220 CALL COLOR(14,16,16) 

230 CALL CHAR(97,"00446C5454444444") 

240 CALL CHAR(98,"0038101010101038") 

250 CALL CHAR(99,"0038444038044438") 

260 C(1)=5 
270 C(2)=7 
280 C(3)=11 
290 C(4)=3 
300 T(1)=262 
310 T(2) =294 
320 T(3)=330 
330 T(4)=349 

340 PRINT "PREMI UN TASTO PER PARTIRE."; 

350 CALL KEY(0 » K,ST) 

360 IF ST<1 THEN 350 
370 CALL CLEAR 
380 CALL SCREEN(8) 

390 FOR 1=1 TO 4 

400 CALL HCHAR(10,7*1-3,136,5) 

410 CALL VCHAR(11,7*1-3,136,3) 

420 CALL VCHAR(11,7*1+1,136,3) 

430 CALL HCHAR(14,7*1-3,136,5) 

440 CALL HCHAROl ,7*1-2,96+8*1,3) 

450 CALL HCHAR(12,7*1-2,96+8*1,3) 

460 CALL HCHAR(13,7*1-2,96+3*1,3) 

470 CALL HCHAR(8,7*1-1,48+1) 

480 NEXT I 

490 CALL HCHAR(5,15,97) 

500 CALL HCHAR(5,16,98) 

510 CALL HCHAR(5,17,99,2) 

520 RANDOMIZE 
530 FOR 1=1 TO 4 
540 LC(I)=C(R4) 

550 FOR J=1 TO 1-1 

560'IF LC(I)=LC(J)THEN 540 

570 NEXT J 

580 NEXT I 

590 LF=0 

600 M=0 
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610 CALL HCHAR(17,15,48,i) 

620 LF=LF+1 

630 IF LF=100 THEN 990 
640 L(LF)=R4 
650 FOR LL=1 TO LF 
660 S=L(LL) 

670 CALL SOUND(300,T(S),2) 

680 CALL COLOR(S+9,LC(S),LC(S)) 

690 CALL SOUND(300,9999,30) 

700 CALL COLOR(S+9,1,1) 

710 NEXT LL 

720 FOR LG= 1 TO LF 

730 CALL KEY(0,K,ST) 

740 IF (K>48) + (K<53) 0-2 THEN 730 
750 S=K-48 

760 CALL SOUND(300,T(S) ,2) 

770 CALL COLOR(S+9,LC(S),LC(S)) 

780 CALL SOUND(1,9999,30) 

790 CALL COLOR(S+9,1,1) 

800 IF SOL(LG) THEN 900 

81 0 NEXT LG 

820 LF$="00"&STR$(LF) 

830 SC$=SEG$(LF$,LEN(LF$)-2,3) 

840 FOR 1=1 TO LEN(SC$) 

850 CALL HCHAR(17,14+1,ASC(SEG$(SC$,1,1))) 
860 NEXT I 

870 CALL SOUND(500,9999,30) 

880 CALL SOUND(1,9999,30) 

890 GOTO 620 

900 CALL SOUND(500,-8,4) 

910 FOR 1=1 TO 20 
920 CALL COLOR(9,7,1) 

930 CALL COLORO,12,1) 

940 CALL COLORO,2,1) 

950 NEXT I 

960 CALL COLORO, 1 , 1 ) 

970 M=M+1 

980 IF M<3 THEN 650 

990 PRINT TAB(7);"* * GAME OVER **" 

1000 PRINT :"PREMI 1 PER RIGIOCARE" 

1010 PRINT TAB(7);"2 PER FINIRE" 

1020 CALL KEY(0,K,ST) 

1030 IF K= 49 THEN 370 
1040 IF K<>50 THEN 1020 
1050 CALL CLEAR 
1060 END 
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Paperchasc 


BASIG 


Con questo entusiasmante sioco vi 
troverete sperduti in un labirinto 
dal quale uscire risulterà quanto¬ 
meno difficoltoso. Intanto che cer¬ 
cate la strada per il mondo esterno 
muovendovi con i tasti cursore, 


potrete, però, unire l'utile al dilet¬ 
tevole cercando di fare man bassa 
di quante più cose preziose trove¬ 
rete, senza però farvi beccare dai 
vari guardiani. 


100 CALL CLEAR 

110 PRINT TAB(6);"**************" 

120 PRINT TAB(6);"* PAPERCHASE *" 

130 PRINT TAB(6);"**************" 

140 CALL CHAR(96,"00183C7E7E3C18") 

150 CALL COLOR(9,14,12) 

160 PRINT : : : :"USA I TASTI FRECCIATI PER MUOVERTI." 
• 170 PRINT ::"CERCA DI PRENDERE TANTI" 

180 PRINT :"TESORI (') NEL LABIRINTO" 

190 PRINT :"QUANTO TI E 1 POSSSIBILE" 

200 PRINT :"SENZA FARTI CATTURARE !!" 

210 CALL COLOR (10,5, 5) 

220 CALL COLOR(11,12,12) 

230 CALL CHAR(120,"383810FE10387CFE") 

240 CALL COLOR(12,7,12) 

250 CALL CHAR(128,"38381OFEl0387CFE") 

260 CALL COLOR (13,16,12) 

270 PRINT : : :"PREMI UN TASTO PER INIZIARE."; 

280 CALL KEY(0,K,S) 

290 IF S<1 THEN 280 

300 SC=0 

310 LV=1 

320 CALL CLEAR 

330 CALL SCREEN(4) 

340 FOR X=3 TO 21 
r . 350 CALL HCHAR(X,3, 104,27) 

360 NEXT X 

370 RANDOMIZE 

380 FOR 1=1 TO 65 

390 X=2*(INT(9*RND))+4 

400 Y= 2*(INT(11*RND))+4 

410 CALL HCHAR(X,Y,112,5) 
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TI-99/4A 






420 NEXT I 

430 FOR 1=1 TO 60 

440 X=2*(INT(7*RND))+4 

450 Y=2*(INT(13*RND))+4 

460 CALL VCHAR(X,Y,112,5) 

470 NEXT I 

480 CALL HCHAR(4,4,112,5) 

490 CALL VCHAR(4,4,112,5) 

500 FOR 1=1 TO 80 
510 X = 2 *(INT(9*RND))+4 
520 Y=2*(INT(13*RND))+4 
530 CALL HCHAR(X,Y , 96) 

540 NEXT I 

550 FOR 1=1 TO 6 

560 CALL HCHAR(23,2 + 1,ASC(SEG$("PUNTI :"» I#1))) 
570 NEXT I 

580 CALL SOUND(100,1497,2) 

590 T=0 

600 IF LV<8 THEN 620 

610 LV=7 

620 A=4 

630 B=4 

640 C=4 

650 D=4 

660 PG=112 

670 CALL HCHAR( A, B, 1 2 0 ) 

680 IF T<8-LV THEN 1410 

690 IF FL=0 THEN 740 

700 IF FL/2=INT(FL/2)THEN 1140 

710 CCX=CX 

720 CCY=CY 

730 FL=0 

740 CALL GCHAR(C+1,D,GC) 

750 IF GC=120 THEN 1760 

760 IF GC=104 THEN 810 

770 IF GC0128 THEN 810 

780 CX=1 

790 CY=0 

800 GOTO 1340 

810 CALL GCHAR(C,D+1,GC) 

820 IF GC=120 THEN 1760 

830 IF GC=104 THEN 880 

840 IF GC0128 THEN 880 

850 CX=0 

860 CY=1 

870 GOTO 1340 

880 CALL GCHAR(C-1,D,GC) 
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890 IF GC=120 THEN 1760 

900 IF GC=104 THEN 950 

910 IF GCOT28 THEN 950 

920 CX=-1 

930 CY=0 

940 GOTO 1340 

950 CALL GCHAR(C,D-1,GC) 

960 IF GC=120 THEN 1760 
970 IF GC=128 THEN 1320 
980 IF GC=112 THEN 1320 
990 FL=FL+1 

1000 IF FL/2=INT(FL/2)THEN 1040 
1010 CX=CCX 
1020 CY=CCY 
' ' 1 030 GOTO 1160 

1040 CX=SGN(A-C) 

1050 CY=0 

1070 CY=SGN(D-B) 

1080 CALL GCHAR(C+CX,D+CY,GC) 

1090 IF GC=104 THEN 1110 

1100 IF (GC=96)+(GC=112)THEN 1340 

1110 CX=-1 

1120 CY=0 

1130 GOTO 1160 

1140 FL=FL+1 

1150 IF FL>1 THEN 1300 

1160 CALL GCHAR(C+CX,D+CY,GC) 

1170 IF (GC=112)+(GC=96)+(GC=128)THEN 1340 
1 1 80 CX=1 
1190 CY=0 

1200 CALL GCHAR(C+CX,D,GC) 

1210 IF (GC=112)+(GC=96)+(GC=128)THEN 1340 
1220 CX=-1 

1230 CALL GCHAR(C+CX,D,GC) 

1240 IF (GC=112)+(GC=96)+(GC=128)THEN 1340 
1250 CX=0 
1260 CY=-1 

1270 CALL GCHAR(C,D+CY,GC) 

1280 IF (GC=112)+(GC=96)+(GC=128)THEN 1340 
1290 CY=1 

1300 CALL GCHAR(C+CX,D+CY,GC) 

1310 IF GC=104 THEN 1390 ELSE 1340 
1320 CX=0 
1330 CY=-1 

1340 IF PG=96 THEN 1360 
1350 PG=112+FL 
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1360 CALL HCHAR(C,D,PG) 

1370 C=C+CX 
1380 D=D+CY 

1390 CALL HCHAR(C,D , 42) 

1400 PG=GC 

1410 CALL KEY (1 , K1 , S) 

1420 IF (Kl<0)+(Kl>5)THEN 1410 
1430 CALL HCHAR(A,B,128) 

1440 ON Kl+1 GOTO 1540,1410,1590,1640,1410,1690 
1450 IF G<>96 THEN 670 
1460 CALL SOUND(100,-1,4) 

1470 SC=SC+1 
1480 SC$=STR$(SC) 

1490 FOR 1=1 TO LEN(SCS) 

1500 CALL HCHAR(23,10+1,ASC(SEG$(SC$,I,1))> 

1510 NEXT I 
1 520 T=T+l 

1 530 IF T<45 THEN 670 ELSE 320 
1540 CALL GCHAR(A+1,B,G) 

1550 IF G=1 04 THEN 1740 
1 560 IF G=42 THEN 1760 
1 570 A= A+l 
1 580 GOTO 14 50 
1590 CALL GCHAR(A,B-l,G) 

1600 IF G=104 THEN 1740 
1610 IF G=42 THEN 1760 
1 620 B=B-1 
1630 GOTO 1450 
1640 CALL GCHAR(A,B+1,G) 

1650 IF G=104 THEN 1740 
1 660 IF G=42 THEN 1760 
1670 B=B+1 
1680 GOTO 1450 
1690 CALL GCHAR(A-1,B,G) 

1 700 IF G=104 THEN 1740 

1710 IF G=42 THEN 1760 

1720 A=A-1 

1730 GOTO 1450 

1740 CALL SOUND(-100,-5,4) 

1750 GOTO 670 

1760 CALL SOUND(200,-6,4) 

1770 FOR 1=1 TO 3 
1 780 CALL SCREENO 6) 

1790 CALL SCREEN(9) 

1 800 CALL SCREENO) 

1810 NEXT I 

1820 PRINT "TI HO CATTURATO!!!!" 
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1830 PRINT "RITENTI? (S/N)"; 
1 840 CALL KEY(0 , K, S) 

1850 IF K=83 THEN 300 
1 860 IF K<>78 THEN 1840 
1 870 CALL CLEAR 
1880 END • 


Beep 



Volete entrare in confidenza con 
le note musicali? Comporre velo¬ 
cemente simpatiche melodie, spe¬ 
rimentando velocemente l'effetto 
finale? Allora "Beep" fa per voi! Il 
programma vi permette di piazza¬ 
re su un ideale pentagramma due 
tipi di note musicali (la cui durata 
è, rispettivamente, di una e di mez¬ 
za unità di tempo), un tipo di pau¬ 
sa (1/2 unità di tempo), di selezio¬ 
nare l'ottava (premendo i tasti "7 ' 
"2“ o "3“ prima di fissare la nota), 
di caricare o salvare su nastro brani 


musicali. La nota di durata più bre¬ 
ve si sposta sullo schermo premen¬ 
do i tasti W-S-A-Z; l'altra nota si 
muove invce con i tasti l-J-K-M,- es¬ 
se vengono posizionate premen¬ 
do il tasto "0" ed eseguite premen¬ 
do "B“ (come Beep!). Sul display, 
in alto, sono costantemente evi¬ 
denziate l'ottava prescelta ed il va¬ 
lore della nota che state muoven¬ 
do. 

Il programma va necessariamente 
salvato con SAVE "BEEP" LINE 
9000. 


10 CIRCLE 11,163,9 
20 PRINT AT 1,1 ;"A" 

30 CIRCLE 244,12,9 
40 PRINT AT 20,30;"B" 

50 PRINT AT 1,11 ;"CONTROLLI" 

100 PRINT AT 6,1 ;"3 SIMBOLI" 

1 IO PLOT 0,111 : DRAW 255,0 
120 PLOT 48,111: DRAW 0,-111 
130 PRINT AT 11,3;"A" 

140 PRINT AT 11,8;"3urata 1/2 unitatempo" 

150 PRINT AT 15,3;"B" 

160 PRINT AT 15,8;"3urata 1 uni ta *-tempo" 

170 PRINT AT 19,3;.;AT 19,8;"pausa della durata";AT 20,8;"1/2 uni 

ta’-tempo" 

175 PAUSE 150 

180 PRINT AT 4,18; FLASH 1;"premi un tasto" 

190 PAUSE 0 

200 CLS : LET q=-8 

210 PRINT AT 0,0;"A";AT 2,0;"movimento" 

214 GO SUB 220 
216 GO TO 320 
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220 PLOT 112,152-q: DRAW 40,0 
230 PLOT 91,128-q: DRAW 80,0 
240 PLOT 91,104-q: DRAW 80,0 
250 PLOT 112,80-q: DRAW 40,0 

260 PLOT 112,152-q: DRAW 0,-24: PLOT 152,152-q: DRAW 0,-24 

270 PLOT 112,104-q: DRAW 0,-24: PLOT 152,104-q: DRAW 0,^24 

280 PLOT 91,128-q: DRAW 0,-24 

290 PLOT 131,128 — q: DRAW 0,-24 

300 PLOT 171,128-q: DRAW 0,-24 

310 RETURN 

320 PRINT AT 3,16;"W";AT 6,13;"A H ;AT 6,19;"S";AT 9,16;"Z" 

330 PRINT AT 11,0;"B";AT 13,0;"movimento" 

340 LET q=80 
350 GO SUB 220 

360 PRINT AT 14,16;"I";AT 17,13;"J”;AT 17,19;"K";AT 20,16;"M" 

370 FLASH 1: PRINT AT 19,27;"premi";AT 20,28;"u n";AT 21,27;"tasto" 
380 PAUSE 0: FLASH 0 
400 CLS 

410 PRINT "POSIZIONAMENTO NOTE" 

420 PLOT 16,160: DRAW 40,0: DRAW 0,-24: DRAW -40,0: DRAW 0,24 
430 PRINT AT 3,4;"0";AT 3,10;"quando e' premuto," 

435 PRINT AT 4,10;"imprime la nota";AT 5,10;"sullo schermo, alla" 

440 PRINT AT 6,10;"altezza voluta" 

450 PRINT AT 9,0;"ESECUZIONE DEL BRANO" 

460 PLOT 16,88: DRAW 40,0: DRAW 0,-24: DRAW -40,0: DRAW 0,24 
465 PRINT AT 12,4;"B";AT 12,10;"quando e' premuto," 

470 PRINT AT 13,10;“procede ad eseguire";AT 14,10;"il brano." 

485 PAUSE 300 

490 PRINT AT 21,0; INVERSE 1;"premi un tasto" 

495 PAUSE 0 
500 CLS 

510 PRINT AT 0,5;"PAUSA ,n 

520 PRINT AT 3,l;"Per posizionare la pausa";AT 4,1;"e' necessario so 
vrapporre" 

530 PRINT AT 5,l;"le due note e premere ";AT 6,l;"il tasto 0" 

540 PRINT AT !2,4;"NOTA BENE";AT 15,l;"Quando aggiungi una nota"; 

AT 16,1;"ponila a destra delle altre" 

545 PRINT AT 17,l;"come fosse una vera partitura.";AT 18,l;"Il progr 
amma comunque le" 

550 PRINT AT 19,1;"interpreterà' coite aggiunte";AT 20,l;"alla fine d 
el brano." 

555 PAUSE 250 

560 PRINT AT 21,2; FLASH l;"premi un tasto" 

570 PAUSE 0 
575 CLS 

580 FOR h=0 TO 21 STEP 2 
585 FOR k»0 TO 31 STEP 2 
990 PRINT AT h,k;"AB" 

593 NEXT k 

595 NEXT h 

597 PAUSE 50 

600 CLS : LET j-2 

610 LET v=0: LET vv=3 

670 CLS 

700 FOR f=l TO 2: READ p$ 

710 FOR n=0 TO 7 
720 READ r 
730 POKE USR pS+n,r 
740 NEXT n 
750 NEXT f 
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760 

761 

762 

763 

764 

765 

766 

767 

780 

781 

782 

783 

784 

785 

786 

787 
900 
910 
920 
925 
930 

940 
950 
960 
1 000 
1010 
1 020 
1 030 
1100 
1110 
1 1 20 

I 1 30 
1140 
1150 

II 60 
1 1 70 
1 200 
1 210 
1 220 
1 300 
1 301 
1303 
1 310 
1 320 
1330 
1 340 
1 345 
1 350 
1 360 
1 370 
1 380 
1 390 
1 400 
1 401 
1 402 

1403 

1404 
1410 


DATA "a",BIN 00000100 
DATA BIN 00000110 
DATA BIN 00000101 
DATA BIN 00000101 
DATA BIN 00000100 
DATA BIN 00011100 
DATA BIN 00111110 
DATA BIN 00111100 
DATA "b",BIN 00000100 
DATA BIN 00000110 
DATA BIN 00000101 
DATA BIN 00000101 
DATA BIN 00000100 
DATA BIN 00011100 
DATA BIN 00100010 
DATA BIN 00111100 
DIM e$(12,4) 

FOR q=l TO 12: READ e$(q): NEXT q 
INPUT "Carichi da nastro ? (s/n)",l$ 

IF 15="s" THEN LET j-101: GO TO 7500 
PRINT "velocita' di esecuzione ?"•''"valori da .1 a 
INPUT coeff 
CLS 

DIM f(100): DIM g(100) 

LET f(1)=coeff: LET g(1)=150 
INK 0: PRINT AT 10,0;"DO " 

LET xl=20 : LET yl=3 
LET x2 = 20: LET y2=1 0 
LET ra=21: LET n=3 

IF m=xl+1 AND m< = 2 THEN LET m=2: LET xl=l 

IF m=x2+l AND m< = 2 THEN LET m=2: LET x2=l 

IF m=xl-l AND m> = 20 THEN LET ra=20: LET xl=21 

IF m=x2-1 AND m>=20 THEN LET m=20: LET x2=21 

IF n=y1+1 AND n< = l THEN LET n=l : LET yl=0 

IF n=y2+l AND n<=l THEN LET n=l: LET y2=0 

IF n=yl-l AND n>=30 THEN LET n=30: LET yl=31 

IF n=y2-l AND n>=30 THEN LET n=30: LET y2=31 

INK 0: PRINT AT xl,yl;"A" 

INK 0: PRINT AT x2,y2;“B" 

INK 7: PRINT AT m,n;"A" 

INK 0: PRINT AT 0,0;" " 

PRINT AT 0,16;vv 

IF xl>18 THEN GO TO 1345 

LET cl*2 

IF cl>=0 THEN LET cl=10-xl 
IF cl<0 THEN LET cl-22-xl 
INK 0: PRINT AT 0,0;e$(cl+l) 

INK 0: PRINT AT 0,28;" 

IF x2>l8 THEN GO TO 1400 
LET c2=2 


IF c2>=0 THEN LET c2=10-x2 
IF c2<0 THEN LET c2=22-x2 
INK 0: PRINT AT 0,28;e$<c2+1 ) 

IF INKEYS*"!" THEN LET v=-24: LET vv=l: GO TO 1100 
LET v=-12: LET vv=2: GO TO 1100 
LET v=0: LET vv=3: GO TO 1100 
LET v=l2; LET vv=4: GO TO 1100 
LET v=24: LET vv=5: GO TO 1100 
LET xl=xl-1 : LET m=xl+l: LET n=yl 


THEN 

THEN 


IF INKEY$="2* 

IF INKEY$="3* 

INKEY5="4" THEN 
INKEYS="5" THEN 
INKEY$="w" 


IF 

IF 

IF 

0 


THEN 


1 ": 


: GO TO 110 
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1415 

IF 

A 

INKEY$="z" 

THEN 

LET 

xl=xl+1 : 

LET 

m=xl-1 

: LET n=yl: 

GO 

TO 

1 1 0 

1420 

0 

IF 

n 

INKEY$="a" 

THEN 

LET 

y1=y1 -1 : 

LET 

m=xl : 

LET n=yl+1 : 

GO 

TO 

1 1 0 

1430 

IF 

n 

INKEY$*"s" 

THEN 

LET 

yl =yl+1 : 

LET 

m=x1 : 

LET n=yl-l: 

GO 

TO 

no 

1450 

u 

IF 

fl 

INKEY$="i" 

THEN 

LET 

x2=x2-1 : 

LET 

m=x2+l 

: LET n=y2: 

GO 

TO 

no 

1460 

u 

IF 

n 

INKEY$="m" 

THEN 

LET 

x2-x2+1: 

LET 

m=x2-1 

: LET n=y2: 

GO 

TO 

1 1 0 

1470 

u 

IF 

A 

INKEYS-"j" 

THEN 

LET 

y 2»y2-1 : 

LET 

m=x2 : 

LET n»y2+l: 

GO 

TO 

no 

1 480 

u 

IF 

n 

INKEY$="k" 

THEN 

LET 

y 2 =y 2 +l: 

LET 

m=x2 : 

LET n=y2-l: 

GO 

TO 

no 

1 490 

IF 

INKEYS="0" 

THEN 

GO TO 1600 







1 500 

IF 

INKEY$="b" 

THEN 

GO TO 2000 







1 550 

IF 

INKEYS<>"0 

" OR INKEYSO"! " OR 

INKEYS<>"v< 

OR INKEYS 





<>"z" OR INKEY$<>"a" OR INKEY$<>"s" OR INKEY$<> B Ì" OR 
INKEY$<>"m" OR INKEYSO" j" OR INKEY$<>"k" OR INKEY$""" 

THEN GO TO 1400 

1600 IF x1«x2 AND yl»y2 AND xl<«18 THEN PRINT AT x1,y2;'"": GO TO 16 
10 

1605 GO TO 1650 

1610 LET f <j) = .5*coef£: LET g(j)=150 
1 620 LET j = j + l : GO TO 1750 

1650 IF xl < = 18 OR yl<>3 THEN PRINT AT xl,yl;"A": GO TO 1660 
1655 GO TO 1700 

1660 LET f (j)=.5: LET g(j)=10-xl+v 
1670 LET j = j + l : GO TO 1750 

1700 IF x2<=l8 OR y2<>l0 THEN PRINT AT x2,y2; INK 0;"B";: GO TO 17 
10 

1705 GO TO 1750 

1710 LET f ( j ) =1 : LET g(j)=10-x2+v 
1720 LET j = j + l : GO TO 1750 
1750 GO TO 1000 

2000 PRINT AT 0,16;" " 

2001 FOR z=l TO j-1 

2010 IF g(z)>=80 THEN GO TO 2500 
2020 BEEP f(z)*coe£f,g(z) 

2030 NEXT z 

2100 DATA "do","do#","re","rei","mi",“fa" 

2110 DATA "fa#","sol","sol#","la","la#","si" 

2200 GO TO 2900 
2500 PAUSE 25: GO TO 2030 
2900 PRINT AT 20,0;"vuoi riascoltarlo ? 

2910 INPUT u$ 

2915 FOR u=0 TO 31: PRINT AT 20,u;" 

2920 IF uS-"s" THEN GO TO 2000 
2940 IF j>=l00 THEN GO TO 3000 
2950 PRINT AT 20,0;"vuoi modificarlo ? 

2960 INPUT u$ 

2970 FOR u=0 TO 31: PRINT AT 20,u;" 

2940 IF u$="s" THEN GO TO 1000 
3000 PRINT AT 20,0;"vuoi registrarlo ? 

301 0 INPUT u$ 

3020 FOR u=0 TO 31: PRINT AT 20,u;" ";: 

3030 IF uS-"s" THEN GO TO 7000 
3040 IF U$<>"n" AND U$<>"s" THEN GO TO 
4000 PRINT AT 20,0; "vuoi ricominciare ? 

401 0 INPUT u$ 


(s/n)" 
NEXT u 

(s/n)" 

NEXT U 

(s/n)" 

NEXT U 

3000 

(s/n)" 
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NEXT U 


4020 FOR u=0 TO 31: PRINT AT 20,u;" 

4030 IF u$="s" THEN GO TO 9060 
4040 IF u$="n" THEN GO TO 9999 
4050 IF u$<>"s" OR u$<>"n" THEN GO TO 3000 
7000 INPUT "Nome brano ?",o$ 

7010 SAVE "durata" DATA f(): SAVE o$ DATA g<) 

7020 GO TO 4000 

7500 INPUT "Nome brano ?",o$ 

7510 LOAD "durata" DATA f(): LOAD o$ DATA g() 

7520 PRINT AT 21,9;"FERMA IL NASTRO": PAUSE 100 

7521 LET coeff= f(1) 

7523 FOR r=l TO 10: PRINT f(r),g(r): NEXT r 
7525 FOR u=0 TO 14: PRINT AT 21,u;" "; : NEXT u 
7530 GO TO 2000 

9000 PRINT AT 21,2; PAPER 7; INVERSE 1;"F ERMA IL NASTRO 

N 

9020 FOR t=0 TO 12: BEEP .2,t! NEXT t 

9030 FOR t«0 TO 31: PRINT AT 21,t; PAPER 7;" ": NEXT t 

9040 PAPER 7: CLS 

9050 FOR f*l TO 2: READ p$ 

9052 FOR n=0 TO 7: READ r 

9054 POKE USR p$+n,r 

9055 NEXT n 

9056 NEXT £ 

9058 RESTORE 

9060 CLS : PRINT AT 1,1;"PER LA PRESENTAZIONE ===> P " 

9070 PRINT AT 5,1;"PER FAR PARTIRE BEEP ===> R" 

9080 IF INKEYS="p" THEN RUN 
9090 IF INKEY$="r" THEN RUN 600 

9100 IF INKEYS<>"p" OR INKEY$<>”r" THEN GO TO 9080 


Geometria facile 



Più che essere un programma che 
sviscera la geometria euclidea, 
"Geometria facile " intende mostra¬ 
re una possibile applicazione di 
una utility pubblicata qualche nu¬ 
mero or sono. La utility in questio¬ 
ne consentiva di ruotare le scritte 
di 90 gradi: in questo caso essa 


viene utilizzata per indicare la lun¬ 
ghezza dei lati verticali di poligoni 
regolari. Potrete così vedere con- 
certamente come inglobare la sud¬ 
detta utility nei vostri programmi... 
ed intanto far esercitare il fratellino 
con aree e perimetri! 


io 

20 REM GEOMETRIA 

30 

50 BORDER 7: PAPER 7: INK 0: BRIGHT 0: FLASH 0: INVERSE 0: CLS 
100 REM 
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110 PRINT AT 0,0;"CON QUALE FIGURA GEOMETRICA VUOI ESERCITARTI ? 

ti 

120 RESTORE 150 

130 FOR F=1 TO 2: PRINT AT 21,0,, 

140 READ FS: PRINT AT 21,0; INK 7;F; n ";FS 
150 DATA "QUADRATO","RETTANGOLO” 

160 LET LUNG”(LEN PS1+1 
170 FOR 1=0 TO LUNG 
180 FOR Y=0 TO 7 

190 FOR X=8*I TO 8*1 + 7 ^ , 

200 IF POINT (X, Y )=1 THEN PLOT (X)*2+24,(Y)*2+140-(F*24): DRAW 0,1; 

DRAW -1,0: DRAW 0,-1 
21 0 NEXT X 
220 NEXT Y 
230 NEXT I 
240 NEXT F 
250 INPUT SCELTA 
800 GO TO 1000«SCELTA 
1000 REM QUADRATO 

1010 BORDER 1: PAPER 1: INK 6: BRIGHT 0: OVER 0: INVERSE 0: CLS 
1020 LET LATO=INT (RND*16)+1 
103 0 LET L= LATO* 8 
1 03 5 LET ASC=1 28-L/2 
1040 LET ORD=64-L/2+44 

1050 PLOT ASC,ORO: DRAW L,0: DRAW 0,L: DRAW -L,0: DRAW 0,-L 
1060 LET A$ = "LATO=" + STR$ LATO: LET B$=A$ 

1070 LET LUNG=(LEN AS)-1 

1080 IF LATO<3 THEN LET CO=l: LET C02=l: GO TO 1100 

1090 LET CO=LATO/8: LET C02=CO 

1800 GO SUB 9900 

190 0 LET PERIMETRO=4«LATO 

1910 LET AREA”LATO*LATO 

1990 GO TO 5000 

2000 REM RETTANGOLO 

2010 BORDER 1: PAPER 1: INK 7: BRIGHT 0: OVER 0: INVERSE 0: CLS 

2020 LET LATO=INT <RND*12)+4 

2025 LET LATINO”INT (RND*12)+2 

2028 IF LATO<=LATINO THEN GO TO 2020 

2030 LET L=LATO*8: LET LL=LATINO*8 

2035 LET ASC=128-L/2 

2040 LET ORD=64-L/2+44 

2050 PLOT ASC,ORO: DRAW L,0: DRAW 0,LL: DRAW -L,0: DRAW 0,-LL 
2060 LET A$ = "LATO”"+STRS LATO: LET B$="LATO="+STR$ LATINO 
2070 LET LUNG”(LEN AS1-1 

2080 IF LATO<8 THEN LET CO»l: GO TO 2100 
2090 LET CO”LATO/8 

2100 IF LATINO<8 THEN LET C02-1: GO TO 2300 
2110 LET C02=LATIN0/8 
2800 GO SUB 9900 

2900 LET PERIMETRO=2*(LATO+LATINO) 

2910 LET AREA”LATO»LATINO 
2990 LET FI=2: GO TO 5000 
5000 REM PERIMETRO 

5010 LET FLAG“1: INPUT "PERIMETRO ? ";RS 

5020 LET LUNG”LEN R$: IF LUNG=0 THEN GO TO 5010 

5030 FOR F=1 TO LUNG 

5040 IF CODE RS(F)<48 OR CODE RS(F)>57 THEN LET FLAG”0 
5050 NEXT F 

5060 IF FLAG=0 THEN GO TO 5010 

5070 IF VAL R$OPERIMETRO THEN PRINT AT 21,9; PAPER 2; INK 6; 

FLASH 1 ;"NO! RIPROVA...": GO TO 5010 


28 


5080 IF VAL R$ ^PERIMETRO THEN PRINT AT 21,0;" 

" ; AT 21,13; PAPER 7; INK 1; BRIGHT 1; FLASH 1;"BRAVO!” 

5100 REM AREA 

5110 LET FLAGRI: INPUT "AREA ? ";RS 

5115 PRINT AT 21,0;” ” 

5120 LET LUNG=LEN R$: IF LUNG=0 THEN GO TO 5110 
5130 FOR F=1 TO LUNG 

5140 IF CODE R$(F)<48 OR CODE R$(F)>57 THEN LET FLAG=0 
5150 NEXT F 

5160 IF FLAGRO THEN GO TO 5110 


5170 

IF 

VAL R$ OAREA THEN 

PRINT AT 21,9; 

PAPER 2; 

INK 

6 ; 

FLASH 1 ;" 


NOI 

RIPROVA...": GO 

TO 5110 





51 80 

IF 

VAL RS *AREA THEN 

PRINT AT 21,11; 

PAPER 7; 

INK 

1? 

BRIGHT 1 ; 


FLASH 1 ;"COMPLIMENTI !" 

6000 REM 

6010 INPUT "VUOI CONTINUARE (S/N)? ";RS 
6020 IF R$="N" THEN STOP 
6030 GO TO 50 

7020 IF CODE R$(F)<48 OR CODE R$(F)>57 THEN LET FLAG=0 
7060 NEXT F 
8000 STOP 
9900 REM 

9910 PRINT AT 21,0; INK 1;AS;AT 21,16;B$ 

9920 FOR 1=0 TO LUNG 
9930 FOR Y=0 TO 7 
9940 FOR X=8*I TO 8*1+7 

9950 IF POINT (X,Y)=1 THEN PLOT (X)*CO+ASC,(Y-12)«CO+ORD: DRAW 0,1: 
DRAW -1,0: DRAW 0,-1 

9954 IF LATO<4 THEN GO TO 9956 

9955 IF POINT (X+128,Y)=1 THEN PLOT (7-Y)*C02+(ASC-9*C02),(X)*C02+(0 
RD): DRAW 0,1: DRAW -1,0: DRAW 0,-1 

9960 NEXT X 
9970 NEXT Y 

9980 NEXT I 

9981 RETURN 
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Guida per l'input dei programmi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto di 
2 serie di tasti grafici: una prima serie di 16 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi "shiftati") e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera G 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe. 

A esempio (G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co 

Analogamente la codifica SG, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca fSG2}, occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto II tasto grafico in¬ 
dicato 

Così ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte; analoga¬ 
mente ( 4SG1 } significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte. I caratteri grafici de¬ 
finibili de lettere da A a U in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata. 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A 
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Simbolo grafico 
definito nel 
programma In uso. 

















































JACKSON 



Le strenne 
firmate Jackson 




ROMANZO ROSA CON IL CM 

M|fLO_But5C3_FliD5SiSO Danni 

SfctoiCtJEtro» 

Set un tipo romantico? Té 
piacciono i romanzi? 

Il computer, attraverso un 
Iimpalco programma senno per 
Commodore 61. cotlabora con 
te e con nella costruzione di 
un Ifostro “Romanzo rosa'. 

Con floppy disk. 

Cod. CC230 Lire <0.000 


IMPARA IL BRIDGE 
CON IL COMPUTER 

CliudfCLlbnMo 
Imparare il bridge con l'aiuto del 
computer diventa un piacevole 
passatempo. Un programma 
interattivo elaborato su IBM e 
su C 6< ti conduce patto patto 
a diventare quasi un esperto 
di bridge Poi con un po' di 
applicazione -, 

Con floppy disk per C 6< 

Cod. CO» Lire SO.OOO 

Con floppy disk per IBM 

Cod. CC239 Lire SO.OOO 


Puoi trovare le strenne Jackson 
nelle migliori librerie 


COFANETTI 
SPEEDY COMPUTER 

L'informatica attraverso i lesti e 
le immagini nudiate per i 
bambini puO diventare facile 
anche per .. mamma e papa 
Cod. CU001 Lire <5.000 
Cod. CUOOi Lire <5.000 


Cod. 0231 Lire <0.000 


COMPUTERGRAPHIA 

l oan Scott 

In 176 meravigliose e 
coloratissime pagine, uno 
splendido viaggio attraverso le 
immagini elaborate con le 
tecniche più avazate di 
computer-graphics. 

Cod. 802P Lire <0.000 





